
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvReserveInfo
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	31/3/2549 15:49:51	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvReserveInfo
#Region "Internal member variables"
    Private _ReserveId As String
    Private _ReserveDate As String
    Private _UserId As String
    Private _UnitId As String
    Private _AppointMentId As String
    Private _AgentId As String
    Private _Telephone As String
    Private _CarAmount As Double
    Private _StartDate As String
    Private _StopDate As String
    Private _StatusDriver As String
    Private _HumanAmount As Double
    Private _Area As String
    Private _Remark As String
    Private _Description As String
    Private _UserStatus As String
    Private _ReserveCost As Double
    Private _ApproveId As String
    Private _ApproveStatus As String
    Private _ApprovedDate As String
    Private _ApproveRemark As String
    Private _ApproveByStatus As String
    Private _ApproveByDate As String
    Private _ApproveByRemark As String
    Private _ApproveById As String
    Private _OwnerId As Int32
    Private _DataTypeId As Int32
    Private _TypeId As Int32
#End Region

    Public Sub New()
        _ReserveId = Nothing
        _ReserveDate = Nothing
        _UserId = Nothing
        _UnitId = Nothing
        _AppointMentId = Nothing
        _AgentId = Nothing
        _Telephone = Nothing
        _CarAmount = Nothing
        _StartDate = Nothing
        _StopDate = Nothing
        _StatusDriver = Nothing
        _HumanAmount = Nothing
        _Area = Nothing
        _Remark = Nothing
        _Description = Nothing
        _UserStatus = Nothing
        _ReserveCost = Nothing
        _ApproveId = Nothing
        _ApproveStatus = Nothing
        _ApprovedDate = Nothing
        _ApproveRemark = Nothing
        _ApproveByStatus = Nothing
        _ApproveByDate = Nothing
        _ApproveByRemark = Nothing
        _ApproveById = Nothing
        _OwnerId = Nothing
        _DataTypeId = Nothing
        _TypeId = Nothing
    End Sub

    Public Sub New(ByVal ReserveId As String, _
       ByVal ReserveDate As String, _
       ByVal UserId As String, _
       ByVal UnitId As String, _
       ByVal AppointMentId As String, _
       ByVal AgentId As String, _
       ByVal Telephone As String, _
       ByVal CarAmount As Double, _
       ByVal StartDate As String, _
       ByVal StopDate As String, _
       ByVal StatusDriver As String, _
       ByVal HumanAmount As Double, _
       ByVal Area As String, _
       ByVal Remark As String, _
       ByVal Description As String, _
       ByVal UserStatus As String, _
       ByVal ReserveCost As Double, _
       ByVal ApproveId As String, _
       ByVal ApproveStatus As String, _
       ByVal ApprovedDate As String, _
       ByVal ApproveRemark As String, _
       ByVal ApproveByStatus As String, _
       ByVal ApproveByDate As String, _
       ByVal ApproveByRemark As String, _
       ByVal ApproveById As String, _
       ByVal OwnerId As Int32, _
       ByVal DataTypeId As Int32, _
       ByVal TypeId As Int32)
        _ReserveId = ReserveId
        _ReserveDate = ReserveDate
        _UserId = UserId
        _UnitId = UnitId
        _AppointMentId = AppointMentId
        _AgentId = AgentId
        _Telephone = Telephone
        _CarAmount = CarAmount
        _StartDate = StartDate
        _StopDate = StopDate
        _StatusDriver = StatusDriver
        _HumanAmount = HumanAmount
        _Area = Area
        _Remark = Remark
        _Description = Description
        _UserStatus = UserStatus
        _ReserveCost = ReserveCost
        _ApproveId = ApproveId
        _ApproveStatus = ApproveStatus
        _ApprovedDate = ApprovedDate
        _ApproveRemark = ApproveRemark
        _ApproveByStatus = ApproveByStatus
        _ApproveByDate = ApproveByDate
        _ApproveByRemark = ApproveByRemark
        _ApproveById = ApproveById
        _OwnerId = OwnerId
        _DataTypeId = DataTypeId
        _TypeId = TypeId
    End Sub

#Region "Property"

    Public Property ReserveId() As String
        Get
            Return _ReserveId
        End Get
        Set(ByVal value As String)
            _ReserveId = value
        End Set
    End Property


    Public Property ReserveDate() As String
        Get
            Return _ReserveDate
        End Get
        Set(ByVal value As String)
            _ReserveDate = value
        End Set
    End Property


    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal value As String)
            _UserId = value
        End Set
    End Property


    Public Property UnitId() As String
        Get
            Return _UnitId
        End Get
        Set(ByVal value As String)
            _UnitId = value
        End Set
    End Property


    Public Property AppointMentId() As String
        Get
            Return _AppointMentId
        End Get
        Set(ByVal value As String)
            _AppointMentId = value
        End Set
    End Property


    Public Property AgentId() As String
        Get
            Return _AgentId
        End Get
        Set(ByVal value As String)
            _AgentId = value
        End Set
    End Property


    Public Property Telephone() As String
        Get
            Return _Telephone
        End Get
        Set(ByVal value As String)
            _Telephone = value
        End Set
    End Property


    Public Property CarAmount() As Double
        Get
            Return _CarAmount
        End Get
        Set(ByVal value As Double)
            _CarAmount = value
        End Set
    End Property


    Public Property StartDate() As String
        Get
            Return _StartDate
        End Get
        Set(ByVal value As String)
            _StartDate = value
        End Set
    End Property


    Public Property StopDate() As String
        Get
            Return _StopDate
        End Get
        Set(ByVal value As String)
            _StopDate = value
        End Set
    End Property


    Public Property StatusDriver() As String
        Get
            Return _StatusDriver
        End Get
        Set(ByVal value As String)
            _StatusDriver = value
        End Set
    End Property


    Public Property HumanAmount() As Double
        Get
            Return _HumanAmount
        End Get
        Set(ByVal value As Double)
            _HumanAmount = value
        End Set
    End Property


    Public Property Area() As String
        Get
            Return _Area
        End Get
        Set(ByVal value As String)
            _Area = value
        End Set
    End Property


    Public Property Remark() As String
        Get
            Return _Remark
        End Get
        Set(ByVal value As String)
            _Remark = value
        End Set
    End Property


    Public Property Description() As String
        Get
            Return _Description
        End Get
        Set(ByVal value As String)
            _Description = value
        End Set
    End Property


    Public Property UserStatus() As String
        Get
            Return _UserStatus
        End Get
        Set(ByVal value As String)
            _UserStatus = value
        End Set
    End Property


    Public Property ReserveCost() As Double
        Get
            Return _ReserveCost
        End Get
        Set(ByVal value As Double)
            _ReserveCost = value
        End Set
    End Property


    Public Property ApproveId() As String
        Get
            Return _ApproveId
        End Get
        Set(ByVal value As String)
            _ApproveId = value
        End Set
    End Property


    Public Property ApproveStatus() As String
        Get
            Return _ApproveStatus
        End Get
        Set(ByVal value As String)
            _ApproveStatus = value
        End Set
    End Property


    Public Property ApprovedDate() As String
        Get
            Return _ApprovedDate
        End Get
        Set(ByVal value As String)
            _ApprovedDate = value
        End Set
    End Property


    Public Property ApproveRemark() As String
        Get
            Return _ApproveRemark
        End Get
        Set(ByVal value As String)
            _ApproveRemark = value
        End Set
    End Property


    Public Property ApproveByStatus() As String
        Get
            Return _ApproveByStatus
        End Get
        Set(ByVal value As String)
            _ApproveByStatus = value
        End Set
    End Property


    Public Property ApproveByDate() As String
        Get
            Return _ApproveByDate
        End Get
        Set(ByVal value As String)
            _ApproveByDate = value
        End Set
    End Property


    Public Property ApproveByRemark() As String
        Get
            Return _ApproveByRemark
        End Get
        Set(ByVal value As String)
            _ApproveByRemark = value
        End Set
    End Property


    Public Property ApproveById() As String
        Get
            Return _ApproveById
        End Get
        Set(ByVal value As String)
            _ApproveById = value
        End Set
    End Property


    Public Property OwnerId() As Int32
        Get
            Return _OwnerId
        End Get
        Set(ByVal value As Int32)
            _OwnerId = value
        End Set
    End Property


    Public Property DataTypeId() As Int32
        Get
            Return _DataTypeId
        End Get
        Set(ByVal value As Int32)
            _DataTypeId = value
        End Set
    End Property


    Public Property TypeId() As Int32
        Get
            Return _TypeId
        End Get
        Set(ByVal value As Int32)
            _TypeId = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvReserveInfos
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	31/3/2549 15:49:51	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvReserveInfos
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvReserveInfo
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvReserveInfo)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvReserveInfo)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvReserveInfo)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
